← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Wed Dec 14 15:33:55 2022
Reported on Wed Dec 14 15:40:04 2022

Filename(eval 323)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
StatementsExecuted 11 statements in 104µs
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11111µs28µsJSON::Schema::Modern::::BEGIN@5.178 JSON::Schema::Modern::BEGIN@5.178
1113µs3µsMethod::Generate::Accessor::_Generated::::BEGIN@10.179Method::Generate::Accessor::_Generated::BEGIN@10.179
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1{
220s my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
310s my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4 package JSON::Schema::Modern;
5245µs245µs
# spent 28µs (11+17) within JSON::Schema::Modern::BEGIN@5.178 which was called: # once (11µs+17µs) by Sub::Quote::_clean_eval at line 5
no warnings 'closure';
# spent 28µs making 1 call to JSON::Schema::Modern::BEGIN@5.178 # spent 17µs making 1 call to warnings::unimport
6 sub add_format_validation {
7 ($_QUOTED,$_UNQUOTED) if 0;
8# BEGIN quote_sub PRELUDE
9package Method::Generate::Accessor::_Generated;
10
# spent 3µs within Method::Generate::Accessor::_Generated::BEGIN@10.179 which was called: # once (3µs+0s) by Sub::Quote::_clean_eval at line 15
BEGIN {
1111µs $^H = 2018;
1210s ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
1313µs %^H = (
14 );
15138µs13µs}
16# END quote_sub PRELUDE
17112µs337µsshift->_assert__format_validations->${\Data::Perl::Collection::Hash::MooseLike->can("set")}(@_); }
# spent 23µs making 1 call to Data::Perl::Collection::Hash::MooseLike::set # spent 11µs making 1 call to JSON::Schema::Modern::_assert__format_validations # spent 3µs making 1 call to UNIVERSAL::can
1811µs $$_UNQUOTED = \&add_format_validation;
19}
2014µs1;
21
22;